Description :

Take a picture of the screen

'.................................................................................

More Notes :

Inputs: None

Assumes: Found off the web

Code Returns: None

Side Effects: None

Api Declarations: Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal Flags As Long, ByVal ExtraInfo As Long)	
	



'.................................................................................

Code :

Sub ScreenToClipboard()
Const VK_SNAPSHOT = &H2C
Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
End Sub


